home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / SHARED.CST / 00001_Script_setup scripts next >
Text File  |  1998-09-21  |  5KB  |  127 lines
  1.  
  2. --------------------                                               create enviroment for program                                -----------------------------
  3. global gControls,gBt,gButtonStatus,SndFlag1,gMr1,gMr2,gTx,gWhat, CDPath
  4.  
  5. on setInits
  6.   set the exitLock = true
  7.   set gControls = EMPTY
  8.   set gControls =birth(script "MenuObject")
  9.   set SndFlag1 = 1
  10.   set gBT =[]
  11.   set gButtonStatus = 0
  12.   -- set the mousedownscript first time program is opened
  13.   set  the mouseDownScript= "Menu"
  14.   set gTx  = 1
  15.   SetMenuFunctions (gControls)
  16.   NewIndicators(gControls)
  17.   
  18.   
  19.   
  20.   -- sets the correct range to look at for the button stay on function
  21.   if char 1 of  the movieName = "k" then
  22.     set gMr1= 20
  23.     set gMr2 =34
  24.   else
  25.     set gMr1=22 
  26.     set gMr2 =29
  27.   end if
  28.   if  the movieName = "Home" or the movieName = "Beyond" then
  29.     set gMr1= 20
  30.     set gMr2 =45
  31.   end if
  32.   if  the movieName = "KTG3" then
  33.     set gMr1= 18
  34.     set gMr2 =47
  35.   end if
  36.   
  37.   
  38.   -- sets CDPaths finding file
  39.   -- checks for exiting search path then set up file structure if needed
  40.  
  41.   if the searchPath contains "Help" then
  42.     nothing
  43.   else
  44.     --set the exitlock to true
  45.     append the searchPath,"C:\axiabb"
  46.     append the searchPath, CDPath & "Director"
  47.     append the searchPath, CDPath & "Bin"
  48.     append the searchPath, CDPath & "Buttons"
  49.     append the searchPath, CDPath & "Controls"
  50.     append the searchPath, CDPath & "Dirmedia"
  51.     append the searchPath, CDPath & "Help"
  52.     append the searchPath, CDPath & "Images"
  53.     append the searchPath, CDPath & "Inclearn"
  54.     append the searchPath, CDPath & "Make"
  55.     append the searchPath, CDPath & "Midi"
  56.     append the searchPath, CDPath & "Other"
  57.     append the searchPath, CDPath & "Setup"
  58.     append the searchPath, CDPath & "Slideshow"
  59.     append the searchPath, CDPath & "Sounds"
  60.     append the searchPath, CDPath & "Sounds\Throwing"
  61.     append the searchPath, CDPath & "Sounds\Baserun"
  62.     append the searchPath, CDPath & "Sounds\Bcatch"
  63.     append the searchPath, CDPath & "Sounds\Stories"
  64.     append the searchPath, CDPath & "Sounds\Bunting"
  65.     append the searchPath, CDPath & "Sounds\Intro"
  66.     append the searchPath, CDPath & "Sounds\Intro\Beyond"
  67.     append the searchPath, CDPath & "Sounds\Intro\Anaylzer"
  68.     append the searchPath, CDPath & "Sounds\Intro\Skills"
  69.     append the searchPath, CDPath & "Sounds\Intro\Know"
  70.     append the searchPath, CDPath & "Sounds\Intro\Home"
  71.     append the searchPath, CDPath & "Sounds\Intro\Sequence"
  72.     append the searchPath, CDPath & "Sounds\Intro\Catch"
  73.     append the searchPath, CDPath & "Sounds\Flyballs"
  74.     append the searchPath, CDPath & "Sounds\Gndball"
  75.     append the searchPath, CDPath & "Sounds\Hitting"
  76.     append the searchPath, CDPath & "Sounds\Pitching"
  77.     append the searchPath, CDPath & "Sounds\Sliding"
  78.     append the searchPath, CDPath & "Sounds\KTG"
  79.     append the searchPath, CDPath & "Sounds\Throwing"
  80.     append the searchPath, CDPath & "Sounds\Stories"
  81.     append the searchPath, CDPath & "Subsets"
  82.     append the searchPath, CDPath & "Vfwrt"
  83.     append the searchPath, CDPath & "Images\Baserun"
  84.     append the searchPath, CDPath & "Images\Backcatc"
  85.     append the searchPath, CDPath & "Images\Btg"
  86.     append the searchPath, CDPath & "Images\Bunt"
  87.     append the searchPath, CDPath & "Images\Catch"
  88.     append the searchPath, CDPath & "Images\Flyballs"
  89.     append the searchPath, CDPath & "Images\Grndball"
  90.     append the searchPath, CDPath & "Images\Hit"
  91.     append the searchPath, CDPath & "Images\Htua"
  92.     append the searchPath, CDPath & "Images\Ktg"
  93.     append the searchPath, CDPath & "Images\Pitch" -- note which is right
  94.     append the searchPath, CDPath & "Images\Pitching" --note which isa right
  95.     append the searchPath, CDPath & "Images\Scripts"
  96.     append the searchPath, CDPath & "Images\Slide"
  97.     append the searchPath, CDPath & "Images\Throwing"
  98.     append the searchPath, CDPath & "bin"
  99.   end if
  100.   
  101.   set the soundlevel = 7
  102.   
  103. end 
  104.  
  105. -- looks to see if the requested file exits before launching  axia.exe
  106.  
  107. on IsItOutThere
  108.   global DLPath, CDPath
  109.   set TheFile = AxiaFileExists(DLPath & "Axia.exe")
  110.   if not TheFile then
  111.     Alert "Could not find file " & DLPath &  "axia.exe" 
  112.     return TheFile
  113.     exit
  114.   end if
  115.   
  116.   set TheFile = Empty
  117.   
  118.   set TheFile = AxiaFileExists(CDPath & "controls\" & gwhat)
  119.   if not TheFile then 
  120.     Alert "Could not find file " & CDPath & "controls\" & gwhat
  121.   end if
  122.   
  123.   return TheFile
  124. end
  125.  
  126.  
  127.